home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00051_Script_metric rollover < prev    next >
Text File  |  1999-03-07  |  1KB  |  42 lines
  1. property thePopLoc, popSprite, popName, mySprite, faraway, fieldObj
  2.   global togglestate
  3. on new me
  4.   set mySprite = the spriteNum of me
  5.   set popSprite = mySprite - 1
  6.   puppetSprite popSprite, true    
  7.   puppetSprite popSprite - 1, true    
  8.   puppetSprite popSprite - 2, true    
  9.   if togglestate = 0 then
  10.     set the member of sprite popsprite to "light1"
  11.     set the member of sprite popsprite - 2 to "imperial1"
  12.     set the member of sprite popsprite - 1 to "metric2" 
  13.   else
  14.     set the member of sprite popsprite to "light2"
  15.     set the member of sprite popsprite - 2 to "imperial2"
  16.     set the member of sprite popsprite - 1 to "metric1" 
  17.   end if
  18.   return me
  19. end
  20. on mouseUp
  21.   set the member of sprite popsprite to "light1"
  22.   set the member of sprite popsprite - 2 to "imperial1"
  23.   set the member of sprite popsprite - 1 to "metric2" 
  24.   set togglestate = 0
  25.   set compair = the text of member "disPlane"
  26.   MainSpecs
  27.   if (length(compair) > 2) and (compair<>"No Competitor") then
  28.     DisSpecs compair
  29.   end if
  30. end
  31. on mouseEnter
  32.   set the member of sprite popsprite to "light1h"
  33. end mouseEnter
  34. on mouseLeave
  35.   global togglestate
  36.   if togglestate = 0 then
  37.     set the member of sprite popsprite to "light1"
  38.   else
  39.     set the member of sprite popsprite to "light2"
  40.   end if
  41. end mouseLeave
  42.